home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
PROGRAM
/
DOORDR40.ARJ
/
WINDDEMO.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1990-06-21
|
2KB
|
87 lines
uses doordriv,ReWindow,crt;
Var
MainAr : Windowar;
SpockAr : Windowar;
KirkAr : Windowar;
TedAr : Windowar;
ScannerAr : Windowar;
SpockMemAr : Memoryar;
KirkMemAr : Memoryar;
TedMemAr : Memoryar;
s:string;
f,hi:integer;
begin;
InitDoorDriver('DoorDriv.CTL');
clrscr;
for hi:=1 to 23 do Mainar[hi]:='';
mainar[1]:=' -=- Scanners -=- ';
mainar[3]:=' Report: 1 Class G Planet';
mainar[4]:=' Population : 0';
mainar[5]:=' Status: Phaser Scorched Serface';
mainar[6]:=' Photon Craters Cover The Planet';
Rwindow(1,13,80,23,
0,4,9,4,
MainAr);
GetScreen(3,3,23,5,SpockMemAr);
for hi:=1 to 23 do SpockAr[hi]:='';
spockAr[1]:=' Spock:';
spockAr[2]:=' Orders, Captian?';
Rwindow(3,3,23,5,
15,9,15,9,
SpockAr);
getscreen(40,1,75,5,KirkMemAr);
for hi:=1 to 23 do KirkAr[hi]:='';
KirkAr[1]:=' Intercomm: Kirk To Security:';
KirkAr[2]:=' Detach a security detail to the';
KirkAr[3]:=' bridge imediately. Then Escort';
KirkAr[4]:=' Mr. Sulu to the Brig.';
RWindow(40,1,75,5,
4,15,4,15,
KirkAr);
delay(2000);
reinitscreen(40,1,75,5,KirkMemAr);
GetScreen(53,3,75,5,KirkMemAr);
for hi:=1 to 23 do KirkAr[hi]:='';
KirkAr[1]:=' Kirk:';
KirkAr[2]:=' Take The Helm Ted.';
Rwindow(53,3,75,5,
15,9,15,9,
KirkAr);
delay(800);
reinitscreen(53,3,75,5,KirkMemAr);
GetScreen(33,5,57,7,TedMemAr);
for hi:=1 to 23 do TedAr[hi]:='';
TedAr[1]:=' Ted:';
TedAr[2]:=' Javol Jal Commadant.';
Rwindow(33,5,57,7,
15,9,15,9,
TedAr);
delay(800);
reinitscreen(33,5,57,7,TedMemAr);
GetScreen(53,3,80,5,KirkMemAr);
for hi:=1 to 23 do KirkAr[hi]:='';
KirkAr[1]:=' Kirk:';
KirkAr[2]:=' Planetary Scan, Spock.';
Rwindow(53,3,80,5,
15,9,15,9,
KirkAr);
delay(800);
reinitscreen(53,3,80,5,KirkMemAr);
reinitscreen(3,3,23,5,SpockMemAr);
GetScreen(3,3,15,5,SpockMemAr);
for hi:=1 to 23 do SpockAr[hi]:='';
spockAr[1]:=' Spock:';
spockAr[2]:=' Yes Sir.';
Rwindow(3,3,15,5,
15,9,15,9,
SpockAr);
for hi:=1 to 23 do ScannerAr[hi]:='';
scannerar[1]:=' Planetary Scanners ';
Rwindow(55,13,80,23,
0,4,9,4,
ScannerAr);
delay(1000);
read(s);
end.